﻿Public Class BitacoraFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la grabación de la operación en la bitácora del sistema")
        Me.codigo = Utils.Enumeradores.Excepeciones.BitacoraFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la grabación de la operación en la bitácora del sistema"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class BitacoraFalloConsulta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de la bitácora del sistema")
        Me.codigo = Utils.Enumeradores.Excepeciones.DepartamentoFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de la bitácora del sistema"
        Me.innerException2 = innerException
    End Sub
End Class
